home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
tcqbsnip.zip
/
DETAB.BAS
< prev
next >
Wrap
BASIC Source File
|
1997-06-20
|
1KB
|
38 lines
' DETAB.BAS
' by Tika Carr
' February 17, 1997
'
' Donated to the public domain
' No warranties or guarantees are expressed or implied.
'
' Purpose: Replaces tabs with a specified amount of spaces (default = 2)
DECLARE SUB GetArg ()
DEFINT A-Z
PRINT "detab by Tika Carr 2/17/1997"
IF COMMAND$ = "" THEN PRINT "Usage: detab filename.ext [tab size (default = 2)]": END
i = INSTR(COMMAND$, " "): IF i = 0 THEN TabSize = 2 ELSE TabSize = VAL(RIGHT$(COMMAND$, LEN(COMMAND$) - i))
IF i <> 0 THEN FileName$ = LEFT$(COMMAND$, i - 1) ELSE FileName$ = COMMAND$
PRINT "Processing File: "; FileName$; " using "; TabSize; " spaces per tab."
ln = CSRLIN
LOCATE ln, 1: PRINT "Processing Line #: ";
lnum = 1
OPEN FileName$ FOR INPUT AS #1
OPEN "temp.$$$" FOR OUTPUT AS #2
WHILE NOT EOF(1)
LINE INPUT #1, A$: X$ = ""
LOCATE ln, 20: PRINT SPACE$(5);
LOCATE ln, 20: PRINT lnum;
FOR i = 1 TO LEN(A$)
IF MID$(A$, i, 1) = CHR$(9) THEN X$ = X$ + SPACE$(TabSize) ELSE X$ = X$ + MID$(A$, i, 1)
NEXT
PRINT #2, X$: lnum = lnum + 1
WEND
CLOSE
KILL FileName$
NAME "temp.$$$" AS FileName$